home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / Digi-view 4.0 PAL.adf / DV-Link / Time-Lapse < prev    next >
AmigaDOS Script File  |  2018-01-18  |  2KB  |  75 lines
  1. .key LeaveThisHere
  2.  
  3. DoWeHaveMem
  4. if warn
  5. echo "                Sorry - This demo requires 1 megabyte of memory"
  6. wait 2
  7. skip NoMemory
  8. endif
  9.  
  10. if not exists RAM:Echo
  11. copy DVLink RAM:
  12. copy C:Wait RAM:
  13. copy C:Echo RAM:
  14. endif
  15.  
  16. RAM:echo " A sample script to demo time lapse digitizing."
  17. RAM:echo " Gets 1 black and white frame every 15 seconds for a minute."
  18. RAM:echo " Requires 1 Meg of memory."
  19. RAM:echo ""
  20.  
  21. cd /      ; MUST BE IN DIGI-VIEW DIRECTORY
  22. RAM:DVLink mbaw   ;Check for Digi-View
  23. if warn
  24. RAM:echo " Now Loading Digi-View ..."
  25. run >nil: DV 320 256 b
  26. RAM:wait 9             ; Floppy delay, change for hard drive
  27. lab loop
  28. RAM:DVLink mbaw
  29. if warn
  30. RAM:wait 2
  31. skip loop back      ;wait for Digi-View to load
  32. endif
  33. endif
  34.  
  35. RAM:echo " Digitizing 1 of 4"
  36. RAM:DVLink digr
  37. RAM:DVLink scbk
  38. ;RAM:echo " Saving file1 to RAM ..."
  39. ;RAM:DVLink siff RAM:file1
  40. RAM:echo " Waiting to digitize next frame ..."
  41. RAM:wait 5
  42.  
  43. RAM:echo " Digitizing 2 of 4"
  44. RAM:DVLink scfr
  45. RAM:DVLink digr
  46. RAM:DVLink scbk
  47. ;RAM:echo " Saving file2 to RAM ..."
  48. ;RAM:DVLink siff RAM:file2
  49. RAM:echo " Waiting to digitize next frame ..."
  50. RAM:wait 5
  51.  
  52. RAM:echo " Digitizing 3 of 4"
  53. RAM:DVLink scfr
  54. RAM:DVLink digr
  55. RAM:DVLink scbk
  56. ;RAM:echo " Saving file3 to RAM ..."
  57. ;RAM:DVLink siff RAM:file3
  58. RAM:echo " Waiting to digitize next frame ..."
  59. RAM:wait 5
  60.  
  61. RAM:echo " Digitizing 4 of 4"
  62. RAM:DVLink scfr
  63. RAM:DVLink digr
  64. RAM:DVLink scbk
  65. ;RAM:echo " Saving file4 to RAM ..."
  66. ;RAM:DVLink siff RAM:file4
  67. RAM:echo " Waiting to digitize next frame ..."
  68. RAM:wait 5
  69.  
  70. RAM:echo ""
  71. RAM:echo " Done!"
  72. RAM:DVLink quit
  73.  
  74. lab NoMemory
  75.